|
|
 |
|
|
|
|
26: '##ModelId=3521520F0386
27: Private thePrinterProxy As PrinterProxy
28: Public theRichTextFormatting As New RichTextFormatting
29:
30: '##ModelId=3521520F03B8
31: Private theReportDB As DAO.Database
32: '##ModelId=35215210000C
33: Private theForm As New frmRTF 'frmReport
34: 'Private theRichTextFormatting As New RichTextFormatting
35:
36: '##ModelId=35215B560294
37: Private Sub Class_Terminate()
38: #If DebugMode Then
39: 'the class is being destroyed
40: Debug.Print ' & TypeName(Me) & ' instance & CStr(mlClassDebugID) & is terminating
41: #End If
42: End Sub
43:
44: '##ModelId=35215B56017C
45: Private Sub Class_Initialize()
46: #If DebugMode Then
47: 'get the next available class ID, and print out
48: 'that the class was created successfully
49: mlClassDebugID = GetNextClassDebugID()
50: Debug.Print ' & TypeName(Me) & ' instance & CStr(mlClassDebugID) & created
51: #End If
52: End Sub
53:
54: '##ModelId=35215210003C
55: Public Sub clickedOpenReport(Optional argReportName As String, Optional argReportType As Byte)
56: Dim bReportType As Byte
57: Screen.MousePointer = vbHourglass
58: ' bReportType = eReporting.RichTextReporting
59: bReportType = eReporting.AccessReporting
60: ' bReportType = eReporting.CrystalReporting
61:
62: 'Only one of these three calls
63: 'will be able to process message
64: setRichTextReporting bReportType
65: setAccessReporting bReportType
66: setCrystalReporting bReportType
67:
|
|
|
|
|
|